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SBEGIN RMORELEAS,000,RMSRMSO,<RELEASE BUFFER ROUTINE> 


s eanecerencececncencccececcenceqeenceneneneceeseneeeenseeceneseesscecoecceere 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL oe CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESER 


OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND og ta 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH Le 
ION OF T ARE OR ANY OT 
P 


:* ® 
*® ® 
*® ® 
*® ae 
*® ® 
*® ® 
:@ ® 
se 0 E OTIC S$ SOFTWA . 
ie THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie E NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. . 
:* ® 
;# THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:® CORPORATION. . 
*® d 
'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
:® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
*® ® 
*® ® 
** ® 


RRA AREA AAAI REAAEAAAAEARAAAAAAAAAAAAAEAEEAARAEEEEAEATAAEEE 


See 

; Facility: rms32 

Abstract: 

: i module releases a buffer for all file 
: th gates Megat handling writing if dirty 


SOSCCCOCOCOSOSOSOSOSOSOSOSOSSSOSSOSOSSOOSOSOSOOSOSOOSOSOOOSOOOOSS Oooo 
DOOCOCOCOCSOSOSOSOSOSOSOOSOSSOSSOSOSCSOSOSOSOSCSOSOOSOSOOSOOOSOOOSOOOOOOOOoOo 


Sooooooooo 
SOSDOGSOOCSCSOSOSOSCOOCSCOSOOOOSOSOSOSOSCOSSOSSSOSOSOSSOOCOCOOOOOOOOSOO OOOO OOOOOOoO 


sharing. 
; Environment: 
star processor running starlet exec. 
; Author: L F Laverdure, creation date: 30-MAR-1977 
: ; Modified By: 
V03-022 JEJ0044 J — Johnson 21-Jun-1984 
Tweak the instructions for a performance boost. 
v03-021 JEJ0037 JEd 14-May-1984 
Have BLKASTFIN save att" the registers that it uses. 
6 v03-020 i ea Se J E Johnson 11-May-1984 


ix bug in INVGBL that was counting on AP being preserved 
Saneee a possible stall. 


v03-019 g5 0035 J E Johns O2-May=196* 

g in BLOCK” AST so that RMS will bugcheck if it 
AD ove. of AST Quota in a state with no path available 
back to the user. 


v03-018 $HZ20007 Stephen H. Zalewski, 30-Apr-1984 
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Fix bug in BLKASTFIN that was clearing the owner field 
of the BLB when it wasn't supposed to. This was causing 2 
streams to $ENQ for a bucket using the same lock id. 


Also, fix bug where 2 streams would convert their bucket locks 
: press a for the same bucket, thus causing one system 
ock to te lost. 


JEJ0008 J E Johnson 16-Mar-1984 
Add in global buffer quota accounting. 

JWT0160 Jim Tespue 29-F eb-1984 
Remove calls to RMSDEALLEFN. 

yey Stephen H. Zalewski 01-Dec-1983 


lear BLB —— before doing the conversion to a PW lock 
instead of after because if a blocking ast arrived between the 
conversion and the clearing of the flags, the wrong 
flags would be cleared. 


$HZ0005 Stephen H. Zalewski 20-0c t-1983 
When a global buffer is invalidated, the user count on the 
GBD must be greater than one for it to remain in the cache. 


$HZ0004 Stephen H. Zalewski 28-Jul-1983 
Add support for cluster global buffers. 


KPLOO001 Peter Lieberwirth 21-Jun-1983 
Change use of JNLFLG to JNLFLG2. 


TMKO001 Todd M. Katz 20-Feb-1983 

Add support for AI and BI rap tee of ISAM files. Whenever 
RMSRELEASE is called with a dirty buffer and the file's 

organization is index, then the original bucket contents are 
ournalled if BI Journalling is enabled, and the modified 
ucket's contents are journalled if AI Journalling is enabled 
before the bucket is actually released. 


JWHO175 Jeffrey W. Horn 31-Jan-1983 
Save some more registers around call to RMSFRCJNL. 


$HZ0003 Stephen H. Zalewski, 18-Jan-1983 15:40 
added code to bugcheck if SENQ or S$DCLAST system services 
ail. 


$HZ0002 Stephen H. Zalewski, 22-Sep-1982 13:53 
Take EXCLUSIVE Lock on Global buffer cache when invalidating 
a buffer, or updating the position of a buffer in the cache. 


$HZ0001 Stephen H. Zalewski, | 6-Sep-1982 20:21 
Use interlocked self-relative queue instructions when 
placing and removing GBDs. 


KBT0214_ Keith B. Thompson 23-Aug-1982 
Reorganize psects 


V¥03-005 JWwHOO01 Jeffrey W. Horn 28-Jun-1982 
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VO4 


Perform jo 
in BDBST_J 


v03-004 ¢CDS0019 
If write back qi 


g- SEP- oBt 

-SEP-1984 

urnal force mint high water mark(s) stored 
NLSEQ before writing out a buffer. 

D 
( 
D 
nd 


-1 
1 
f 

b 

C D Saether 13-Apr-1982 
o (in blocking ast routine) fails, 
note error, reset DFW flag an ereaies AST without | 
releasin lock. and se tting WRITE 

If a reader finds DFW an RITEBACR. cal the buffer 

is written on release (a ag also writes 

it back if WRITEBACK is s 

Invalidate global butter” ey GBPB released with 

VAL flag cleared. 


v03-003 ¢DdS0018 C D Saether 5-Apr-1982 
Force total release of buffer when released and invalid. 
v03-002 CDS0017 C D Saeth 31-Mar-1982 


Fixup BLB pointer from BDB "when doing KEEPLOCK release 
and other accessors are present. 


v03-001 CDS0016 € D Saether 1-Mar-1982 
Decrement GBD use count in code that clears out 
GBPB as all GBPB's are dequeved. Increment use 
count on GBPB before calling routine to free Local 
buffer in case stall occurs so that other streams 
will not select it. 
rig clear out BDB on keeplock release if use count 
s zero. 
Bugcheck if a reader (didn't say LOCK initially) 
has modified a buffer and the write was deferred. 
If this happens we get into trouble further on. 
26-F eb-1982 
Reflect fact that all accesses except read lock on 
DFW buffer hold lock in EX mode. Situation previously 
being checked Ra oiy CR lock” held on release of dirty 
buffer no longer possible. 
17-Feb-1982 
Changes to allow for release of modified global 
buffer. 
| 
| 
| 
| 
| 
| 
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~SBTTL DECLARATIONS 


Include Files: 
Equated Symbols: 
; Own Storage: 


eerere eerere eerere *e 
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ROORE LEAS RELEASE BUFFER ROUTINE 
v04- RMSRELEASE = RELEASE BUFFER FOR ALL FILE 5=SEP=1 7:22:20 CRMS.SRCIRMORELEAS.MAR; 1 
-SBTTL RMSRELEASE = RELEASE BUFFER FOR ALL FILE ORGS 
ae 
RMSRELEASE 


For all file organizations: 

1) if the buffer valid and eiesy and 
any of the flags ris$v_wrt_thru, rls$v_keep_lock* or 
ris$v_return set, writes the buffer out, 
possibly writing behind 

This routine is not prepared for anyone to call it with 
rls$v_return set and R4 pointing to a GBPB, however. 

2) if the flag rls$v_return set, waits for 
read-ahead or write-behind to complete, 
if any, and returns the bdb and 
huffer to the free ~erT lists 

3) if the [p soy keep. Loess it off release access 
to the block, otherwise, retain access to block 

4) if entry rm$rlnerr is invoked clear all error 
producing bdb flags, clear release control flags 
and fall thru to rm$release 

5) if an error occurs and rls$v_keep_acc is not set in flags, 
call rm$rlnerr before returning (7.e., deaccess bdb) 


* note: rls$v_keep_lock is only input for the 
relative and indexed file organizations. 


Calling sequence: 


SSSSSSSSsssssssssssssssssssss row 


SOOO OCSCOOSOSCOSOSCOOCOCSOOSOOOOSOOOOSoSSooS mm 
SoOCOCOCCSOOOCCOOOOOCOOOOOOOOOOOOSoO 


bsbw rm$release 
bsbw rm$rlnerr - alternate entry to merely free the bdb 


Input Parameters: 


rit impure area address 

r10 ifab address 

r9 irab/ifab address 

r8 rab/fab address 

r4 bdb address 

r3 release control flags (not an input for entry at rm$rlnerr) 


Implicit Inputs: 
ifb$b_caseorg 
bdb$b_ figs 
if block written, all inputs to rm$seqwtbd 


Output Parameters: 


SOOCOCOSOSCOOOCOOCOCOO COCO OSOOCOCSCSOO COSCO COOOOOOOOOOOOOOOOoOoOO 


r0 status code 

ri,r2,ap Coatroyed : 

r3 zeroed if qntry at rm$rlnerr otherwise unchanged 
r4.r5 destroyed if ris$v_return set 


COOSCOCSCSCOSCOSOOSOOSOOOSOSoOSOoOooSooSo 


Implicit Outputs: 
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bdb$v_drt = cleared if not defered write 
bdb$v_val and bdb$v_prm cleared on entry at rm$rlnerr 
the various outputs from rm$seqwtbd 


Completion Codes: 

standard rms. 
Side Effects: 

Journalling of the modified and/or un-modified contents of the bucket 
gocng Pelezees may have been done if the file is an ISAM file marked 


for or BI Journalling.— 
May have switched to running at ast level. 


AADAOOOOOMUIMUIUNN DD 


esesesedh :' 
00000000‘ EF 
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Pew 


oor Wwe 
ouvst WO 
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FFBB* 
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—o9F OO 
wo -— 
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oom — Oo 


WSO 
WM 


50 


ROP IMIMNDNIDS 8 = MQOOCOOODOOOO OOO OOOO OO OWWWOWOWOWOCOOONNINNNNNNN™N 2D 


AUIS WIN 29 OONOAUE WIN (CO OONOULE WN O00 


AANA A AAA NAAM AAIAN AA AAA A. AAAI AIA PI NPUNINPINYNINPIPOPINYNINUNPONPYNIN NPP PoNononononropnronnrn 


TRACE: 


RMSRLNERR: : 
BICa2 

RMSRLNER1:: 
MOVL 


: normal entry 


RMSRELEASE:: 
STSTPT 


UE WN 9 ODNOAUE WN O VONOUS WO 


NO 


RLS: PUSHL 
TS 


10$: 
ASSUME 
TSTB 


BEQL 


15$: BBC 
BSBW 


BLBC 
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RMSRLS_IN 
RMSRLS_OUT 


3 entry for unconditional release 
; clear all possible error producing flags and fall thru 


#BDBSM_VAL !BDBSM_DRT!BDBSM_PRM,BDBS$B_FLGS(R4) 


#RLSSM_DEQ, R3 ; 


RELEASE 

R3 : 
R4 : 
SUCX ; 
BLB$B_BID EQ BDBSB_BID 
BDB$B-BID EQ GBPBSB BID 
#BLBSC_BID, BDBSB_BID(R4) 
Be a te 3 


BOBSV_VAL EQ 0 
BOBSB_FLGS(R4) ,10$ : 


#BDBSA_DRT,BDB$B_FLGS(R4); 
#RLSSMIDEQ, (SP) 3 f 


FABSC_SEQ EQ 0 
IC ZSS_ONGCASE (810) ; 


RLS_ SHARED ; 


#BDBSV_DRT,BDBSB_FLGS(R4), 


Release entirely. 


; Patch for tracing. 


save flags 


; Is there a structure? 
; Assume this was lock blb and no Locks. 


: Is this a BLB? 
This is lock BLB. 


branch if buffer valid 


make sure dirty no 
orce total release 


sequential file org? 
branch if not 


; release for sequential file org (non-shared) 
; write the buffer if dirty 


20$; branch if not dirty 


RMSSEQQTBD 3; write the buffer 


+ note: this code not executed if unit record 


RO, ERRXFR 3; branch if errors 


AX/VMS Macro V04-00 
RMS .SRCJRMORELEAS.MAR; 1 
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R ROUTINE i i Sd 4 9 90:33:33 AX/VMS Macro v04-00 Page 
RELEASE BUFFER FOR ALL FILE -SEP-1984 16:22: RMS.SRCIJRMORELEAS.MAR; 1 
7 
: : return bdb and buffer if requested 
Eee 
¢ 20$: ASSUME RLSS$V_RETURN EQ 0 
? EXIT:  BLBC (SP) ,SUCXIT ; branch if return not requested 
5 3 
§ sit!!! Gf write behind, must await i/o done !!!!! 
§ BSBW RMSRETBDB ; return bdb & buffer 
rk SUCXIT: RMSSUC 
g : 
ry 3; clean up stack and return 
45° 
"4 RLSXIT: MOVL (SP)+,R3 ; Restore release flags. 
4 RSB 
48 
49 ; 
29 ; error occurred - dorinerr call 
5 ° 
3g ERRXFR: PUSHL RO 3 save status 
54 BSBB RMSRLNERR ; release access 
55 OPR #°M<RO> 3 restore status code 
56 BRB RLSXIT : and return 


This is a lock on a global buffer. 

Deq the GBPB entirely. If the buffer was marked invalid, 

mark the GBD invalid also. Also, if first accessor, then convert lock 
to system owned null lock in order to keep buffer cached. If not first 
accessor, then just $DEQ our lock on the buffer. 
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WOen ODD SUPPORT ROUTINES AND INFREQUENT PATHS mets 7 90:33:39 RMS.SRCJRMORELEAS .MAR; 1 . (3) | 
4 -SBTTL SUPPORT ROUTINES AND INFREQUENT PATHS 
52 54 00 Dd ISBLB: MOVL R4,R2 ; Get BLB into rignt register. 
54 Be CLRL RG : Note no 8DB/GBPB. 
O1FA 1 BRwW DEQ ; Dequeue the lock. 
NOLOCK: 
08 6 O03 €0 BBS #RLS$V_DEQ, (SP), DQBDB ; Make BDB free if DEQ spec'd. 
DB 6E 02 E1 9 BBC #RLSSVKEEP_LOCK, (SP), EXIT ; If not keep lock, exit. 
4 04 D CLRL R4 ; So we know there is no BLB when this 
F 3; non-existent lock is released. 
dD 11 F BRB SUCXIT ; And return with success. 
1 DQBDB: ASSUME RLSSV_RETURN EQ 0 
D4 6E SOC 1 BLBS (SP), EXIT ; Exit if ‘return’ spec'd. 
4 RMSSUC ; Load RO with success. 
0228 = 31 W DEQBDB ; Branch to free up BDB. 

A 
A 
A 
A 
A 
A 
A 
A 
A 


R1 = GBD Address 
R2 = BLB Address 
R4 = GBPB Address 


6BPB: BISL2 M#RLSS$M_DEQ, (SP) 
MOVL 7 ) 
MOVL § GBPBSL~VBNSEQNO(R4S 


Force deq of Pr. 
R1 ; Get address of GBD. 


20 AG : Move sequence number from gbpb to gbd. 
10 Al GBDS$L_VBNSEQNUM(R1) 
ASSUME BDB$V_VAL EQ 0 ; 
06 OA A4 8 BLBS GBPBSB_FLGS(R4), VALID ; Br if valid. 
0275 6 BADGBL: BSBW INVGBL ; Invalidate Gad. 
O1cF 31 DQBR:  BRW 3; And go release lock. 


At this time we must look at the global buffer quota and the global buffer 
usage to determine if we will be able to convert the eng to a system lock. 
If we are out of quota, we must dump the buffer. 


SOOGOCCGOOCGOOOCO OOOO CSOOCSO OOO SCO OOO SOOCSOOOOOOOOSOOoOOoOOoO Mm 


DOOOOOOOO0O00000 OOOO 00 NI NIN NINN NNN NN NNN NNN NAO AOAOAO- OUI 


VNOOQOOCOCOCOCOSCOCSOSST FOos—-OPYr PY 


Note: This piece of code has non-closeable timing hole in that the process 
can be deleted after we have taken the quota for the lock, but before we 
have pe funny converted the lock. This can result in the permanent loss of 
a global buffer from the quota. Also the reverse can occur in RMSOCLOSE. 


14 Al 


F 
00000000 * 9F 


? ; Has buffer been cached? 
50 3 
00000000°9F  FFFF 8F ? 
1 
D 


VALID: TSTL GBD$L_LOCK_ID(R1) 

BN DQBR ; Yes, go release lock. 
MOVW a#SYS$GW_GBLBUFQUO,RO 
ADAW] #1, a#RMS$GW_GBLBUF QUO 


a 
ADDW @#RMSSGW_GBLBUFQU0,RO 
BLSS NOCSH 


MOVL BLBSL_LOCK_1D(R2). 
GEDSL LOCK ID(RI) 


SSSSSooooD 
WOU 


50 00000000° 4 


; Branch if out o 
¢ A2 
4 Al 

51 


quota 
; seve lock id of cached buffer 
. n i 
; Save GBD address aroung SENQ. 


= § A~QOODODO00000 0000000 00900 09 09 69 09 09 09 0909 SIN NSN NIOAOAOPAOOOOAOOOUM 2D 
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16-SEP-1984 
BreEp=19 
RMSSETEFN 
RO 
EFN = 
LKMODE = 
LKSB = BLBSw_C 
ELAGS cS 


R 
RO,NOCSH 
BLO$L_LOCK_ID(R2) 
DEQ 


#1, Q#RMSS$GW_GBLBUF QUO 


ont LOCK _ID(R1) 


IFB$L~GBH_PTR(R10) 
GBHSL “QUTBUFQUOCAPS 
BADGBC 


KED: 
RMSPBUG FTLS$_NOTLOCKED 


Or exsK NL MODE = 
#LCKSA_ VALBLKIL 


Hy 90 33:35 AX/VMS Macro v04-00 Page 10 
RMS.SRCIJRMORELEAS.MAR; 1 (5) 
3; Get efn 
a> ein in RO. 
: Convert lock to system owned NULL Lock. 


txsm CONVERT! LCKSM_CVTSYS!LCKSM_SYSTEM!LCKS$ 
Restore GBD address. 
: c senzeraten F failed trash buffer. 


¥~ release + EG 


; Unable to convert the lock, so give 

; back the quota 

; Conversion failed, clear lock_id in GBD. 
; Get global buffer ne peng 

; Count this one as miss 

; and invalidate the Mpa buffer. 


; Not locked correctly. 
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v04 SHARED FILE SUPPORT (RELATIVE AND INDEXE aa oe 9:33:30 YAMS SRCIRMORELEAS MAR: 1 . 
] ? § -SBTTL SHARED FILE SUPPORT (RELATIVE AND INDEXED) 
1 4 8 RLS_SHARED: 
OC AG 8 1 4 TSTW BOBSW_USERS(R4) ; Check use count. 
FE 1 440 BEGL NOTLOCKED ; Bug if zero. 
OA AG O01 €E1 O01 44) BBC #BDBSV_DRT, BDBSB_FLGS(R4),- ; Branch if not dirty. 
64 ! H rk CHECK_COCK 
OC 93 QIDA 444 BITB #1FBSM_Al!IFBSM_BI,- ; If neither AI nor BI deyrnet tee is 
OOA0 fA 10C 445 {£858_JNLFLGCRIO) ; enabled, then skip the journall ng 
a 10F 446 BEQL $ ; of the bucket about to be release 
02 91 ate £08 CMPB #IFBSC_IDX,- ; AI and BI Journalling on a bucket 
23 AA gi 44 [f858_ORGCASE (R10) ; basis is only performed if the 
2B O12 Bi $29 BNEQ $ : file's organization is index 
03 €1 0117 re BBC #IFBSV_AI,- ; if this file is to be Al Journalled 
11 OOAO CA 0119 45 1FB$B_JNLFLG(R10) ,2$ ; then write out a journalling entry 
03 OD O11D 454 PUSHL #CJFS_AI ; to the AI Journal containing the 
OOOOOO00"EF 16 O11F 455 JSB RMSAI_AND_B1_3 ; modified bucket before releasing 
Fos 35 EB 0138 139 BLBs. ROL3S Psopedlagstder Resrgeson: 
FF27 5 oi : 438 1$ BRW ERRXFR 
02 €1 Q1 3 460 2$ BBC #1FBSV_BI,- :; if this file is to be BI Journalled 
OE OOAO CA 01 461 IFBSB_JNLFLG(R10),5$ § ; then write out a journalling entry 
02 DD 0134 186 PUSHL #CJF$_BI ; to the BI Journal containing the 
OOOOO000'EF 16 0136 46 JSB RMSAI_AND_B1_3 3; un-modified bucket before releasing 
5E 04 C0 Bist 464 ADDL2 #4,SP 3; the dirty bucket 
—E9 50 «EO pte te2 BLBC RO,1$ 
0c 53 «6©03—CC«EO $143 467 5$: BBS #MRLS$V_DEQ, R3, WRITE ; If DEQ just write (seqnum correct). 
D3 0146 468 BITL #RLSSM_RETURN - ; Check for options that 
33 or tha ry pght SSALURT THRU ! RLSSM_KEEP_LOCK,- ; disable deferred write. 
04 12 0149 471 BNEQ 10$ : If any set, then write it. 
1F 6A 2C €0 Brae t's BBS #IFBSV_DFW, (R10), CHECK_LOCK ; Don't write if deferred write. 
O14F 474; 
Q14F %75 ; The sequence number is only bumped here if the buffer is actually written. 
O14F 4:5 ; This prevents invalidating cached buffers when readers have accessed 
O14F 477 ; a dirty buffer. The sequence number is also bumped later when a locker 
O14F 478 ; converts EX to PW. 
gee Sop 
14F cat ASSUME BDBS$L_VBNSEQNO EQ GBPB$L_VBNSEQNO 
20 AS 6 bies : ¢ ite INCL BDBS$L_VBNSEQNO(R4) ; Bump count, inv gbl if necessary. 
OD OOA2 CA 01 €1 133 484 "BBC #IFBSV_JNL,IFBSB_JNLFLG2(R10),10$ ; Branch if not journaling. 
2c =«sBB 13 485 PUSHR #°M<R27R3,R5> ; Save registers. 
OOOO0000'EF 16 Q15A 486 JSB RMSFRCJ , : Perform journal force(s). 
gf BA 016 487 POPR #*M<R2,R5,R5> ; Restore registers. 
06 50 53 16 4 5 BLBC kRO,20 ; Branch on error. 
FE98" 0 165 489 108:  BSBW  RMSSEQWTBD ; Write the buffer. 
03 5 3 168 490 BLBS RO, CHECK_LOCK : If success, continue, else ... 
FEE 1 198 135 20$: BRW ERRXFR 3; stop if error detected 


L 13 


6 HAVE _BLB 

ASSUME BLBSC_FLNK EQ 0 
MOVL R2), R ; Get next BLB. 

CMPL BLBSL_BDB_ADDR(R2), R4 ; Still in the chain? 
BEQL 10$ ; Check the owner. 
BSBW NOTLOCKED 3 


RMORELEAS RELEASE BUFFER ROUTINE 16-SEP-1984 00:33: AX/VMS Macro V04-00 Page 
Woe bb D SHARE LE SUPPORT (RELATIVE AND INDEXE eee 9 90:33:30 LRMS SRCIRMORELEAS. MAR: 1 . 
CHECK _LOCK: 
oe AS OB? BOBSW_USERS(R4) ; Decrement use count. 
CAG OD TSTL DBSL_VBN(R4) 3 Was this buffer only (vbn 0)? 
0 1 BNEQ $ 3; If so, then make buffer free. 
FEF 3 BRW DQBDB 
52 10A4 OD 5$: MOVL BOBSL_BLB_PTR(R4), R2 ; Get pointer to BLB. 
0 1 BNEQ 3 continue unless there is no 
FEE 3 BRW NOLOCK ; BLB structure 
5¢ 10 A2 0 10$: MOVL BLBSL_OWNER(R2), AP 3; Get owner of this BLB. 
16 02 1 BEQL HAVE_BLB ; EQL is NL lock. 
we ., » CMPL ; Check owner of this BLB. 
11 1 EQL ; EQL then it's ours. 
68 d0 
A D1 
a a 
60 30 


; Something is wrong. 


: This is a locker who wanted to defer write back of the buffer, but 
3 a blocking AST has already arrived so we must write it now. 
OC AS B6 INCW BDBSW_USERS(R4) ; Bump user count back up 
Bossi —_ a WRITE 3; and write the buffer back. 


eer is ym made that DFW can only be set at this time 

if this lock is being held by a reader. if this is a write lock (LOCK) 
then DFW was cleared when the lock was prontet. even if it was DFW 
prior to that time. The exception is when rm$release has been called 
from rm$cache to free a DFW buffer - which was just written above - 
with the rls$v_deq flag set. In this case, the blb$v_lock flag is 
still set from the original cache call that made the buffer dirty. 

At any rate, if this is really a reader, and this is a DFW buffer, 

then the lock is simply retained and no further action taken. 


Sete te Ge Se Sete tse teste tes 


i —s BOBSL_VBNSEQNO EQ GBPBSL_VBNSEQNO 


ame ee ee ee ae aed ed ed dd Sd 3 wd 3 = 8 


‘ 3 Update value block. 
28 A 20 A400 535 BDBSL~ VBNSEQNO(R4) BLBSL> VALSEQNO(R2) Updat l block 
03 6E 96 4 5 § BBC #RLS$V_KEEP_LOCK, (SP), 25$ ; Continue if not keeplock. 
BRW KEEPLOCK 3; Branc eeplock. 
012 1 v4 : 2s$ EEPLOC h if keeplock 
25 OA A&G O01 v1 AA 236 $ #BDBSV_DRT, BOBSB_FLGS(R4), 35$ ; Branch if dirty. 
OA A2 20 A AF 540 ICB2 #BLBSM_DFW, BLBSB _BLBFLGS(R2) ; Can't be DFW if not dirty. 
8 41 ASSUME <BDBSC"BID & 1> EG 
B rk: ASSUME <GBPBSC_BID & 1> EQ 1 
B 4 ASSUME B$B8_BID EQ GBPB$B_BID 
03 08 A4 5? B 44 BLBC BOBSB_BID(R4), 28$ 3 
FECO 1 H 2 BRW GBPB ; Br to DEQ GBPB. 
OC A4 83 BA 23 288: TSTW GREOW_USERS RA) : Any other accessors? 
9 1 BD 8 BEQL 0$ ; EQL then branch to convert the lock. 
009 31 BF 4 BRW DEQ1 3; If other accessors, dq blb entirely. 
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03 6€ 3 1 O1C 0 308: BBC #RLSSV_DEQ, (SP), 33$ ; Continue if no dequeue requested. 
0096 5 1f§ 1 BRW Ree 3; Otherwise Branch ’ . 
10 A D4 OIC § 338: CLRL BLBSL_OWNER(R2) 3; No owner for a NL Lock. 
1¢¢ 2 ASSUME LCKSK_NLMODE EQ 0 
7E Bf 1¢C 4 CLRL -(S$P) ; Want to convert to NL. 
7E C OIC 55 CLRQ -($P) ; Acmode and protection. 
43 7¢ O1D 2$ CLRQ -(SP) ; No block AST or parameter. 
2 11 10 : BRB F INISH_ARGS 3 Rejoin main Line. 
0104 25 35$: 
1D4 6U 
104 61 ; 
104 86 ; At this point we have a dirty buffer. This can only happen if 
0104 565 ; deferred write was enabled, as otherwise the dirty flag got 
01D4 564 ; cleared when the buffer was written above. 
01D4 565 ; 
01D4 208 
Ripe 6 ASSUME BLBSV_LOCK EQ 0 
6C OA A2~ E9 B1De 258 BLBC BLB$B_BLBFLGS(R2), DFW_RD ; Branch if a reader. 
ODE 570 ; ’ : 
01D8 571 ; This is a locker and deferred write is desired. 
0108 278 ; If this is a global buffer, branch off to copy it to a local buffer 
01D8 573 ; so that a blocking ast will write out the local copy. This simplifies 
0108 574 ; the global cache repiacement algorithm so that it doesn't have to 
01D8 575 ; deal with the problem of forcing another process to write a modified 
01D8 576 ; buffer from the global cache. 
01D8 577 ; The COPY_GBL code will return with R4 pointing to the BDB clone if 
01D8 578 ; it succeeds at the DFW FIN label. If it fails, it branches back to 
01D8 579 ; the WRITE Label above fo flush the buffer to disk, and it won't come 
01D8 580 ; here again. 
0108 581 ; 
0108 286 
01D8 5 ASSUME BDBS$L_VBNSEQNO EQ GBPBS$L_VBNSEQNO 
20 AS =62D6 «6(01D8:)=—s 5584 INCL BDBSL_VBNSEQNO(R4) ; Bump seq num, inv gbl if local. 
28 A2 «406 O01DB 585 BLBSL.VALSEQNO(R2) ; Do value block also. 
O1DE 586 ASSUME <B BID a0 
O1DE 587 ASSUME <GBPBSC_BI 
O1DE 588 ASSUME BDB$B_BID EQ GBPBS$B_BID 
03 08 A4 34 B10g 589 LBC BOBS$B_BID(R4), CHKWB ; Branch if this is a BDB. 
016E 1 pies 351 BRW COPY_GBL ; Else branch to copy buffer. 
O1E5 92 ; 
BiEe 398 : If the WRITEBACK flag is set in the BLB we must go back and write through 
Bie? 230 ; the buffer because a blocking AST arrived after we selected the BLB. 
165 596 * 
06 €4 bigs 238 CHKWB: BBSC #BLB$V_WRITEBACK,- ; Need to write back? 
AF OA A2 1E7 398 eae BLB$B_BLBFLGS(R2), WB =; Branch if yes. 
10 A2. SA DO O1EA on0 > MOVL R10, BLBSL_OWNER(R2) : Ifad owns a dfw Lock. 
04 D OIE 601 PUSHL #LCKSK_PWHODE : Convert to PW mode, 
7E C OIF $04 CLRQ - ; Acmode and protection. 
O3SAB'CF DF O1F 60 PUSHAL W*“BLOCK_AST ; Want block ast for DFW. 
36 D \re 604 PUSH ra . Bue is AST parameter. 
OA A2 2 8 OIF 08? BISB #BLBSM_DFW, BLBSB_BLBFLGS(R2) ; Note this is DFW Lock. 
1FC «606 FINISH_ARGS: 
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7 

4 

0 

4 

5 

6 

7 

8 

4 

1 : Out of Line check to make sure that WRITEBACK is in progress if DFW 
¢ : was clear. Normally expect either DFW is set. or buffer wasn't dirty 
Z 3 to begin with and we wouldn't have gotten here. 
‘ e 

6 

7 

8 

9 

0 

2 

; 

5 

6 

7 

8 

9 

0 

4 


Sanaaes 


L1: BBS #BLBSV_WRI 
BLB$B_BLBF 
BSBW NOTLOCKED 
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7¢ 7 CLRQ = = (SP) ; No comp AST or parid. GBP 
7E D4 CLRL =(SP) ; No resource none. GBP 
1A OD PUSHL etna sreren LCKSM_SYNCSTS = ; lock options. p+ 
03 =€0 BBS #BLBSV_ROBUFFE ; Check if originally nobuffer req. HAV 
09 OA Ae B58 BLBFLGS(R2), 50$ : and don't store value if so. 1FB 
21 «93 BITB #BLBSA_LOCK ! BLBSM_DFW,- ; Check if value block needs 1FB 
OA Ag B$B_BLBFLGS(R2) ; to be stored. 1FB 
8 3 BEQL : Readers don't update VALBLK. 1FB 
6E aE BISL2 #LCKSM_VALBLK, (SP) 3: Store value block. 1FB 
0 Ag DF 50$:  PUSHAL BLBSW_CKSTS(RE) : Lock status block. 1FB 
OA D4 CLRL BLosy LKSTS(R2) : Init to zero. 1FB 
4 AE ODD PUSH #4 (SP) : Lock mode requested. 1FB 
OA A2 OF 8F $s BICB #*CBLBSM_DFW, BLBSB_BLBFLGS(R2) ; Clear all blbflgs except dfw IFB 
FDODF* 0 BSBW RMSSETEF ; Get EFN to use. IFB 
00000000 ' 9F oF FB CALLS #11, @#SYSSENQ 3; Do the conversion. IFB 
53 8EDO POPL R ; Pop requested mode off stack. IFB 
0B 50 5B BLBC RO, 70$ 3; Exit on error. IFB 
50 20 a2 C MOVZWL BLBSW_LKSTS(R2), RO > Get status. 1FB 
4 5 E9 BLBC RO, 3; Branch on error. IFB 
OB A2 53 90 MOVB R3, BLBSB_MODEHELD(R2) ; Store mode granted in blb. IFB 
FE15) 31 70$:  BRW RLSXIT : And exit. ibe 
1 
I 
1 
1 
I 
I 
K 
L 


; Writeback is the only reason DFW 
; should be clear. 

BSBW because we won't come back 
from the bugcheck and we can tell 
where it came from. 


-mn 
m 


BACK 
$ (R25 


L2 


4 
am 


06 
OD OA A2 
FEBS 30 


DFW_RD: 


This is a reader, yet the buffer is + Halls 

Make sure that this is a deferred write lock as otherwise it means 
the caller did not lock the bucket when RMSCACHE was called. ; 
If WRITEBACK is also set, there was a problem on the blocking AST qio 
and the buffer should be written back now and released. 

The BLB we are using is the PW lock. 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
EO 0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
Q 
0 
0 
0 
0 


F3 OA A2 O05 €1 BRC #BLBSV_DFW, BLBSB_BLBFLGS(R2), L1 ; If not dfw, check further. 
EO 024 BBS #BLBSV-WRITEBACK,= ; Br if buffer must be written back. 
97 OA A2 4 BLB$B_GBLBFLGS(R2), CHKWB ; Only occurs if block ast qio failed. 
10 A2_5A p0 4 L2: MOVL R10, BLBSL_OWNER(R2)  ; Ifab is owner of DFW Locks. 
FDF9 1 pcot BRW SUCXIT 3 and exit. 


; There are other streams que'd for the same lock, so DEQ this 

3 lock and make the BLB available. Also must get BOBSL_BLB_PIR 

3 pointing to the next BLB if it was pointing to this one. 

; A separate GBPB is associated with every access to a GBD so 

: therefore the structure through this path will always be a BDB. 
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#RLSSM_DEQ, (SP) : 
FIX BL : 
IFBSW_AVLCL(R10) : 
BLBSL_LOCK_1D(R2), R1 

15$ 

RO 

#BLB$V_NOB 

BLBS$B BLBFL CSRS) 108 
#BLBSA_L BLagM_DF 
BLBSB_ atBFLGs(R 


BLB$L_VALBLK(R2), RO 
LKID=R1 VALBLK=(R0) 


3 io Ages Macro V04-00 Page 
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Clear DEQ so BDB isn't released. 


; Fixup BLB pointer. 


Note BLB is free. 


is Lock id 0? 
t is, don't Ad DEQ. 
ume no value 


; ; Check if ei nobuf fer req. 


and dren‘ f update value if so. 
3; Check if value block i. 
to be stored. 

: EOL then don't store. 


; Note value block. 
; Dequeue the Lock. 


BLBS$B anti td EQ =, -BLBFLGS + 1> 


BLB$B~BLBFLGS(R2) 
BLBSLBDB_A BBR ta? 
BLBS$L_VBN “£0 <BLBSL OWNER + 
BLBS$L~OWNER(R2) ; 
BLBSW-LKSTS(R2) : 
(R2), R2 

(Re), aIFB$L -BLBBLNK (R105 
30$ : 
RLSXIT : 
#RLS$V_DEQ, (SP), 208 : 
R3 : 
<BDBSC_BID & 1> £Q 0 
<GBPBSC_BID & 1> EQ 1 
BDB$B_BID EQ GBPB$B_BID 
BDB$B-BID(R4), 10$ F 
GBPB$C_GBD PTR(R4), AP : 
GBD$W_OSECRT (AP) : 
GBPB$B_CACHE VL(R4).- : 
GBD$B_CACHE_VAL (AP) 


20 
IFBS$W_AVLCL(R10) 
$B-CACHE VAL EQ <epess 


Bo 
BOBSB_ ~ELGS (RO) 3" Cl 
3 Remove . pointer to BLB. 


BS$L-BLB 


Clear out all flags. 
j Disassociate from BDB. 


Clear owner and vbn. 


: Clear lock status block. 
> Remove from chain. 


; Insert at end. 

is there a BDB? 

Continue if BDB present. 
Otherwise done now. 

Return if deq flag not set. 
(came from deql label above). 


; Restore release flags. 


Br if this is a BDB. 

Get pointer to GBD. 
Reduce use count on GBD. 
Store cache value in GBD. 


; Br to finish u 


fres $ enether buifer available. 
ear sone val and flgs. 


BD (R4) 
BDBSL “VBNSEGNO™ EQ <BDBSL’VBN + 


BDBSL_VBN( : ZS 


ear vbn and seq num. 
move from chain. 


(R4), "R4 
(R4), @IFBSL_BDB _punxcrtb)” r Insert at end. 


tj cement 


DQBDB1 
BLBSL_BDB_ADDR(R2) 


nd return. 


Is use count zero? 

NEQ others " queued for BDB. 
Free up bu 

No BDB Pm, rwith BDB now. 
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RELEASE BUFF 
SHARED FILE 
0 D 
1 9809 

DC 

10 DC 
OF O2DE 
QE 02E1 
B6 O2E6 
11 O2EA 
O2EC 


SN NNN oom 


Mororororoenrnwror Cw 
DWDONOUSWwr— 


Pp 


POR 


uit NE 


(RELATIVE AND INDEXE 


nm 
oS 
wf 


MOVL 
BRW 
BSBB 
REMQUE 
INSQUE 
INCW 
BRB 
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; Return SLB address in R4. 
Reexht 3 And return. 
FIX — : — BLB pointer. 
R Remove from chain. 
R2), AT FBSL BLBBLNK (RIO) : Insert at end. 
Fest AVLCL (R10 3; Note one less accessor on buffer. 


( 
1 ; Clear pointer and exit 


“~- 
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: FIX_BLBPTR 
: Routine to point BLB_PTR from 8DB to next BLB when a BLB is being removed. 
; Input: 
: R4 = BDB 
; R2 = BLB 
FIX_BLBPTR: 
CM SL_BLB_PTR(R4), R2  ; Is BDB pointing to this BLB? 


NEQ it’s not, so continue. 


$L_FLNK EQ 0 
), RO ; Get next BLB. 
$L_BDB_ADDR(RO), R4 Does it point to this BDB? 


This assumes this offset in the 
ifab from the Listhead fails always. 


BEQL 10$ EQL peints to same BDB. ; 

CLRL RO No other BLB‘'s point to this BDB. 
10$: mOVL RO, BDBSL_BLB_PTR(R4) Set or clear as appropriate. 
20$: RSB ; Return, 
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7 § p++ 
4 ; INVGBL 
0 56 ; This routine invalidates a buffer in the global buffer cache. It is done 
0 760 ; as follows. If any other accessors are queued waiting for their lock 
8 761 ; on this bucket to be granted, simply force a read by stuffing the sequence 
166 ; number. If no other accessors are present, move the GBD to the end of the 
pe 3; list to identify it as a free buffer. 
030 765 ; Inputs: 
030 766 ; 
8 8 767 ; R1 = Address of GBD 
O8 ; R4_= Address of associated with BLB, if any. 
030 769 ; R10 = Address of IFAB. 
030 770 ; 
G30 771 ; Destroys RO, R1, R3, AP. 
030 oe :2- 
0302 773 INVGBL 
030 774 ASSUME GBDS$L_FLINK EQ 0 
; 030 775 ASSUME GBDS$L_BLINK EQ 4 
FCFB' 30 030 776 BSBW RMSRATSE _GBS_LOCK ; Get EX lock on GBS. 
5C. 0088 CA 50 0305 777 MOVL IFBSL_GBA_PTR(R10), AP ; Get global buffer header. 
Al 01 81 030A 778 CMPW 89s #1, GBD$wW_OSECNT (R15 ; Anyone que'd for this buffer? 
13° O30E 779 BEQL 1 ; EQL no, so put at end of queue. 
10 Al O01 CE 0310 # 780 MNEGL #1,GBD$L_VBNSEQNUM(R1) ; Invalidate seq number to force read. 
11 0314 781 BRB 20$ : Return. 
0316 re 
0316 783; i: 
0316 784 ; Remove from current position in List. 
0316 785 ; 
0316 786 
53 51 61 £4=°¢€1 Q316 787 108: ADDL3) (R1), R1, R3 ; R3 = successor. 
ss Cs FF pala ree REMQTI (R3), R1 3; Remove from queue. 
oa18 oe ; Set VBN to -1. Zero out cache_val, number bytes in use, flags. 
031D 79 ASSUME <GBDS$B_FLAGS + 1> EQ GBD$B_CACHE_VAL 
OA Al B4 031D 79 CLRW §GBD$B_FLAGS(R1) ; Clear flags, cache_val. 
18 Al B4 6359 794 CLRW GBDSW_NUMB(R1) 3; Clear num bytes used. 
OC Al 01 «~CE O35 795 MNEGL #1, GBDSL_VBN(R1) ; Set invalid VBN. 
10 Al D4 0327 796 CLRL GBD$L_VBNSEQNUM(R1) 3; Clear sequence number. 
14 Al D5 O32A 797 TSTL BOSL_LOCK_ID(R1) ; Is there a eyeten lock to drop? 
1D 13 Q32D 798 BEQL 15$ ; Branch if not. 
51 43 8 F 799 PUSHL R11 ; Save address of GBD 
00000000 ' 9F 01 1 800 ADAWI #1,a#RMS$GW_GBLBUF QUO ; Count the quota back 
03 8 801 $DEQ_S LK{D=GBD$L_COCK_ID(R1) ; Remove buffer from cache. 
51 8EDO $48 Hh POPL ; Restore GBD address : 
14 Al D4 Bete iF CLRL GBD$L_LOCK_ID(R1) 3; Zero the old cached buffer lock id. 
bce 05 ; 2 
034C 36 3; Now put this GBD at the end of the List. 
034C 07 ; AP = List head. 
tee 
6C 61 5D rt! Ht 15$: INSQTI (R11), (AP) ; Insert GBD at tail of queue. 
FCAE* 30 O34F 812 20%: BSBW RMSLOWER_GBS_LOCK ; Release EX lock on GBS. 
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COPY_GBL 
Co 
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cache. 


Inp 


Aput: 
R4 = GBPB address. 


Output: 

R4 = BDB copy addr if branch to DFW_FIN 
else same as input GBPB if branch 

Destroys RO, R1, R3, AP. 


First try to get a local buffer to copy 


1EBSW_AVLCL(R10) 

GBPBSW_USERS(R4) 

RMSFREE_LCL 

RO, NO_ 

GBPB$W_USERS(R4) 
<R2,R5> 


_ 
o 
Sad 
wv 
t 
4d 
= 
aD 


aM . 
GBPBS$L._VBN(R4), R1 
GBPBSW-NUMB(R4S, R2 
RMSGET_LCL_BUFF 


GBPBS$B_CACHE_VL(R4).- 
BDB$B_CACHE QAL(R5) 
MOVL § GBPBSC_VBNSEQNO(R4),- ; 
BDBSL_VBNSEQNO(RS) 
MOVL P), "AP ; 
MOVL AP, BDBSL_BLB_PTR(RS) ; 
; MOVL R52 BLBSLBDB-ADDR(AP) 


R . 
Ree (R1), @BDBSL_ADDR(RS 
#BDBSM_VAL!BDBSM_DRT,- 
BDB$B_FLGS(R4) 

POPR Pal Pe 
NO_BUFF : 


Couldn't get a local buffer to copy to 
global buffer. 


ES ELE COG OR TORE 


Page 


the global buffer to a local buffer if deferred write is 
ed to avoid the problems of deferred write from the global 


to WRITE. 


to 


Reduce local available count. 
Branch if one is already free. 
Bump use count so other streams 
won't take it if free_lcl stalls. 
Else call routine to free one. 
Branch if that fails. 

Put use count back. 

Save iy bad akg 

VBN of bucket to copy. 

Size of bucket to copy. 

Get the local buffer. 

Returns BDB addr in R5. 

Copy cache value. 


Copy sequence number from GBPB. 


Pickup saved BLB address. 
Point BDB to BLB. 

Point BLB to BDB. 

Get source addr for copy. 
Reset the fields in the GBPB. 
Save the BDB address. 
° sony the buffer. 
Get BDB addr into R4. 


: Note valid and dirty. 


Restore original values. 
Jump back into mainline. 


Fix local available count and branch back to force write of the 
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BSW_AVLCL(R10) 
ITE 
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; Put count back 
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RMORELEAS S ROUTINE 19-360= 1388 90:33:35 AX/VMS Macro v04-00 
D PPORT (RELATIVE AND INDEXE -SEP-1984 16:22: RMS .SRCJRMORELEAS .MAR; 1 
7 344 
8 ; BLOCK_AST 
0 ; This is the deferred buffer write back routine which is specified 
1 ; as_ the blocking AST when a dirty buffer is held in the cache with 
¢ 3 a PW Lock. 
4 2 
5 BLOCK_AST: 
§ WORD “M<R4,R5,R10> 
54 MOVL 4(AP), R& ; AST parameter is BLB address. 
8 BSBB SETUP ; Setup R4, RS, and R10. 
0 0; 
0 1 ; Note that the fact the BDB is checked out prior to —— the DFW 
0 ¢ ; flag is assuming that those pointers in the BLB are not being mucked 
0 ; with after CACHE clears the DFW flag and prior to the time the lock 
8 iy 3; is converted or DEQ'd in RELEASE. 
0 | 
0 é BBCC #BLBSV_DFu,- ; Check if BLB is being accessed 
8 98 BLB$B_BLBFLGS<R4),- ; already for lock access, and if 
99 SETWRTBCK : so, simply set writeback flag. 
0 900 ASSUME IFBS$B_BID EQ IRBS$B_BID 
0B 0 901 CMPB IFBSB-BID(R10), MIFBSC_BID ; Is this an ifab? 
0 BEQL WRTBCR 
OA 0 CMPB IRB$B_BID(R10), #IRBSC_BID ; Then this better be an irab. 
6 0 904 BNEQ BADOWN 3; If not, then complain. 
03 905 ASSUME PROS WIP ABLNK EQ 0 
SA 6A 00 03 90 MOVL (R10), R1 ; Get ifab address into R10 then. 
03 907 WRIBCK: 
50 20 AA C 03 90 MOVZWL IFBSW_CHNL(R10), RO : Get channel into RO. 
51 14 AS C 909 MOVZWL BDBSW_NUMB(RS), R1 : Get size of buffer into R1. 
5A 18 AS 00 MOVL BDBSL_ADDR(R5), R10 ; Address of buffer. 
$Q10_S EFN = #IMPSC_ASYQIOEFN,- ; Initiate write to disk. 
CHAN = RO,- 
FUNC = #10$_WRITEVBLK,- 
10SB = BDB$C_10SB(R5),- 


P2 = R1,- 
P3 = BDBSL_VBN(RS) 
BLBC RO, WBQIOERR ; Branch if qio failed. 
SETWRTBCK: 
40 8F 88 BISB2 #BLBSM_WRITEBACK,- 3; Note buffer writeback necessary. 
OA AG BLB$8_BLBFLGS(R4) ; in progress, or attempted. 
04 RET ; Exit from the blocking AST. 


; An error has occured attempting to write back the dirty buffer. 
3; Expected problem here is lack of AST quota. 


WBQIGERR: 
RMSPBUG FTIL$_CANTDOAST ; bugcheck with the Likely error. 
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4 4 53+ 
ri 5 ; SETUP 
4, 3 : ; Setup registers and verify structures. 
4 9 5 3 Input: 
4 940 ; R4 - BLB address 
4 941 ; BLB$L_BDB_ADDR 
4 308 ; BLBSL_OWNER 
40 945 ; 
4 944 ; Output: 
4 945 ; R4 = BLB 
4 308 : R5 = BDB 
040 947 ; 
040 948 ; 
040 949 ; 
040 950 ; 
040 951 :-- 
et 828 
40 9535 SETUP: 
040 954 ASSUME <BLB$B_BID + 1> EQ BLBS$B_BLN 
08 AG” BI rt 955 CMPW BLB$B_BID(R4),- > Verify this is realty a BLB 
0E10 8F 40 956 #<BLBSC_BID +<BLBSC_BLN/4a8>> ; by checking BID and BLN fields. 
11. 12 0408 957 BNEQ 10$ ; Bugchec if no good. 
55 OC AS 00 O40A 958 MOVL BLBSL_BDB_ADDR(R4), RS; Get BDB address. 
040E 959 ASSUME <BDB$B6_ BIB + 1> EQ BDB$B_BLN 
08 AS = B1 O40E 960 CMPW BDB$B_BID(RS),- ; Verify this is a BDB 
140C 8F 0411 961 #<BDBSC_BID +<BDB$C_BLN/4a8>> 3; by checking BID and BLN fields. 
OC 12 0414 9% BNEQ 208 ; NEQ then BDB not right. 
5A 10 A4 DO 0416 %6 MOVL BLBSL_OWNER(R4), R10 ; Assume owner is the ifab. 
05 O41A 964 RSB ; Return. 
041B 965 10S: 
041B 308 RMSPBUG FTL$_BADBLB ; BLB is bad. 
8255 967 20$: 
042 968 RMSPBUG FTL$_BADBDB ; BDB is bad. 
0429 969 BADOWN: 
bes 44 RMSPBUG FTL$_BADOWNER ; Owner field no good. 


| 

| 

| 

R10 = owner 
Bugcheck if BLB not a BLB or BDB not a BDB. Owner not checked. 
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4 3? p++ 
2 fe ; BLKASTFIN 
r erg ; This is the completion routine for the deferred write back qio. 
4 $78 i-- 
4 97 
4 980 BLKASTFIN: 
0636 4 981 »WORD “M<R2,R3,R4,R5,R9,R10> 
FBCB’ 4 9 § BSBW RMSBLKF INCHK 3; Check for AST’s inhibited. 
54 59 DO 04 9 MOVL R ; _— BLB addr into R4. 
cg 10 0438 984 BSBB_ Ss SE fuP Setup R4, R5, and R10. 
OA AS BA 043A 985 Bites PBDBSH_ DRT, BDBSB_ FLGS(RS) = te ear dirty. 
OA AG) 6 20—S—és«*#BA O45 986 BICB2 #BLBSMDFW, BLBSB “BLBFLGS(R4) 3 Not dfw anymore. 
44 988 ; 
ged 989 ; The LOCK flag is being used here to indicate that a thread has 
44 990 ; stalled after finding the DFW flag clear on a DFW BLB. 
gies ge) 
E4 044 99 BBSC #BLBSV r if necessary to start thread. 
46 OA AG 0444 99% BLB$B VatBF LES (RG) STARTEHREAD 
0447 995 ASSUME itis BID EQ Q IRBSB BID 
OA O08 AA 91 0447 996 CMPB IRB$B-BID(R10), #IRBSC 81D {is this an irab? 
2E 13 0448 £997 BEQL CLRWR Don't convert lock if s 
08 AA 91 0440 998 CMPB IFBSB BID(R10), #IFBSC Bio ; mt should be an ifad. then. 
D6 ig 0451 999 BNEQ BADOWN : Bugch eck if not an ifab. 
OC AS =6B5 0453 1000 TSTW BDBSW_USERS(R5) 3; Any other streams have this accessed? 
51 12 0456 1001 BNEQ DQ : Branch if so. 
10 AS D4 0458 1308 CLRL BLBSL_OWNER(R4) 3; No owner anymore. 
0458 1003 CONVNL: 
0458 1004 SENQ_S EFN = #IMPSC gevererre. - ; Convert the lock to NL. 
0458 1005 LKMODE = #LCRSK_NLMODE,- 
beee 1906 LKSB = BLBSW rKSTS( 4),- 
+38 100 FLAGS = #LCKSM_ SYSTEM!CCKSM CONVERT!LCKSM_SYNCSTS 
OE 50 £9 0475 1008 BLBC RO,ENQ 3 ; BOGCHECK if failure.... 
478 1009 ASSUME LCK$K ODE EQ 0 
0B AS 94 0478 1010 CLRB BLBS$B- ~HODEHELD (RG) ; NL lock held now. 
478 1011 CLRWRIBCK: 
40 8F 8A 0478 1 \§ BICB2 #BLBSM_WRITEBACK,- ; Clear writeback flag. 
OA AG 47E 101 BLB$B_BLBFLGS(R4S 
0480 1014 SETASYDCL: 
40 8F 88 0480 1015 BISB2 #BDBSM_AST_DCL,- : Note writeback has occurred. 
OA AS rt 1 1 BDBSB_ FLGSTRS) 
04 04 101 RET 3; And exit. 
486 1 18 
486 1019 ENQBUG: 
"4 : ' rs RMSPBUG FTILS_ENQDEQFAIL 3; SENQ failed...... 
48D 1 gi 3; Starting a stalled thread. 
ri 4 ' i: : Declare the AST, then convert the lock. 
48D 1025 
48D 1 § STARTTHREAD: 
48D 1 SDCLAST_S a = RMSSTALLAST,- ; Declare AST to start stalled thread. 
48D 1 g “ASTPRM = BLBSL_OWNER(R4) 
B9 50 E€8 OQ49F 1 BLBS RO, CONVNL 3 And exit on success. 
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7 i RMSPBUG FIL$_ASTDECERR ; AST failed, BUGCHECK...... 
4A9 1 . 
4A9 1 ; Other streams have this buffer accessed. Setup registers correctly and 
nn} ! : 3; branch into release code that will dequeue the lock entirely. 
4A9 1 - 
52 54 DO Q46A9 1 DQ: MOVL R4, R2 ; 
54 55 D0 Q4AC 1038 OVL R5, R4 ; BDB expected in R4. 
CE AF 9F O4AF 1039 PUSHAB SETASTDCL t Release will RSB back. 
7E 4 Q4B2 1040 CLRL -(SP) 3; No release flags. 
FD9E 1 0484 1041 BRW DEQ) 3; Go do it. 
487 1042 ~END 


; BLB expected in R2. 
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Symbol table 
GBPBSL_VBN 
GBPBSL_VBNSEQNO 
GB JNU 
GBPBSW_USERS 
nave BLB 


LCKSM_ 
LCKSM_VALBLK 
NOCSH 


NOLOCK 
NOTLOCKED 
NO_ BUFF 
PIOSA_TRACE 
RLS 


Ve 
RLSSV_KEEP 
RLS$V-RETUR 
RLSXIT 
RLS_ SHARED 


RMSAI_AND B1_3 
RMSBLRF INTHK 
RMS$BUG 
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! Psect synopsis ! 


tena s aces cece swend 


PSECT name Allocation PSECT No. Attributes 

. OS 00000000 - 0¢ 0.) NOPIC USR CON ABS’ LCL mye NOEXE NORD NOWRT NOVEC BYTE 
RMSRMSO 00000487 ( 1207.) = Bee PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
SABSS 00000000 ( 0.) 2¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
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Initialization 35 00:00:0 
ge processing 


00: 108: 100. 76 


s 1 
Sead table sort 
Pass 
Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 818 
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The working set Limit was 1950 pages. 
98292 bytes (192 pages) of virtual memory were used to buffer the intermediate code. 

There were 90 pages of symbol table space allocated to hold 1665 non-local and 34 local symbols. 
1042 source Lines were read in Pass 1 produc ing, |e object records in Pass 2. 
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41 pages of virtual memory were used to define macros. 
i scelisiaiialaiaag ea atiaheiatie saa 
Macro Library name Macros defined 
"$255$DUA2B: ee MLB; 1 17 
“$255$DUA28: $.0BJJL1B.MLB;1 1 IRE 
“$255$DUA28: eye IBISTARLET. MLB; 2 18 ? IRE 
TOTALS (all Libraries) 36 - 
1844 GETS were required to define 36 macros. an 
There were no errors, warnings or information messages. on 
MACRO/LIS=L1IS$:RMORELEAS/OBJ=OBJ$:RMORELEAS MSRC$:RMORELEAS/UPDATE=(ENH$:RMORELEAS) +EXECMLS/LIB+LIBS$:RMS/LIB oa 
RAL 
RM 
RM! 
RM 
RM! 
RM! 
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